home *** CD-ROM | disk | FTP | other *** search
/ MGE USV-Infopaket 2003 January / MGE USV Infopaket Ausgabe 1-2003 (German).iso / extreme / INIT.DIR / 00002_Script_test la config < prev    next >
Text File  |  2001-07-12  |  519b  |  27 lines
  1. on exitFrame
  2.   
  3.   global gErreur
  4.   
  5.   gErreur = [0,0,0]
  6.     if the colorDepth<16 then
  7.     -- Milliers de couleurs conseillΘ
  8.     the colorDepth to 4
  9.     the colorDepth to 8
  10.     the colorDepth to 16
  11.   end if
  12.   if the colorDepth>16 then
  13.     the colorDepth to 16
  14.   end if
  15.   
  16.   if the colorDepth<16 then gErreur[1]=1
  17.   
  18.   if (the deskTopRectList)[1] - rect(0,0,800,600) <0 then gErreur[3]=1
  19.   
  20.   the AlertHook = script "Alert"
  21.   
  22.   if quicktimeversion()>= 3 then
  23.     gErreur[2]=0
  24.   end if
  25.   
  26.   
  27. end